home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / voice boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  738b  |  32 lines
  1. 5 POKE808,251:PRINTCHR$(8):PRINTCHR$(142):REM****WRITTEN BY JONATHAN GOURD*****
  2. 10 X=0.
  3. 90 IFA=0THEN A=1:LOAD"VOICE",8,1
  4. 100 POKE51041,3*16:POKE51022,5:POKE51036,110:POKE51017,2:POKE51031,0
  5. 110 SYS50320
  6. 115 PRINT"[147]"
  7. 120 (null)"VOICE WORDS",8
  8. 124 POKE53280,14:POKE53281,6
  9. 125 PRINT"[147][154]    **** COMMODORE 64 BASIC V2 ****":PRINT" 64K RAM SYSTEM";
  10. 126 PRINT"  38911 BASIC BYTES FREE":PRINT"READY."
  11. 130 POKEG,32:(null)X
  12. 131 IFX=2THENX=-1
  13. 132 X=X+1
  14. 133 (null)1:(null)7
  15. 139 PRINT"[147][146]    **** COMMODORE 64 BASIC V2 ****":PRINT" 64K RAM SYSTEM";
  16. 140 PRINT"  38911 BASIC BYTES FREE":PRINT"READY."
  17. 141 PRINT" [157]";
  18. 142 FORG=1024TO1984STEP40:IFPEEK(G)=160THEN GOTO144
  19. 143 NEXTG
  20. 144 FORM=1TO 80
  21. 145 GETL$
  22. 146 IFL$<>""THEN GOTO 130
  23. 147 NEXTM
  24. 148 POKEG,32
  25. 149 FORM=1TO 80
  26. 150 GETL$
  27. 151 IFL$<>""THEN GOTO 130
  28. 152 NEXTM
  29. 153 POKEG,160
  30. 154 GOTO144
  31. 160 REM*****WRITTEN BY JONATHAN GOURD****
  32.